home *** CD-ROM | disk | FTP | other *** search
- .model large,pascal
-
- include xms.inc
-
- .code XMS_TEXT
-
- ;ERR PUBLIC __ErrXmsRequestUpperMemoryBlock(_segment _far *pseg, USHORT cparaRequested);
-
- public __ErrXmsRequestUpperMemoryBlock
- __ErrXmsRequestUpperMemoryBlock proc \
- pseg:ptr word, \
- pcpara:ptr word
-
- les bx,[pcpara]
- mov dx,es:[bx]
- XmsCall 10h
- jc Exit ;Brif error
-
- mov ax,bx
- les bx,[pseg]
- mov es:[bx],ax
-
- xor ax,ax
-
- Exit:
- les bx,[pcpara]
- mov es:[bx],dx
-
- ret
-
- __ErrXmsRequestUpperMemoryBlock endp
-
- end